home *** CD-ROM | disk | FTP | other *** search
/ CD School House 9 / CD School House 9.0 - Wayzata Technology (1994).iso / pc / games / mac / __the_arcade__ / hyper_invaders / card_3712.txt < prev    next >
Text File  |  1990-09-09  |  6KB  |  265 lines
  1. -- card: 3712 from stack: in
  2. -- bmap block id: 4710
  3. -- flags: 0000
  4. -- background id: 2731
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: 8002
  11. -- rect: left=451 top=315 right=336 bottom=497
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Start
  20. ----- HyperTalk script -----
  21. on hit ship
  22.   global score,posMod,shotLevel,alive
  23.   beep
  24.   put 0 into item ship of alive
  25.   add 1 to score
  26.   put score into word 2 of line 1 of card field 2
  27.   if score is 7 then put true in done
  28.  
  29.   if ship mod 2 is 0 then
  30.     put 64 into yhit
  31.     put empty into line 3 of card field 1
  32.   else
  33.     put 46 into yhit
  34.     put empty into line 2 of card field 1
  35.   end if
  36.   set dragspeed to 30
  37.   choose oval tool
  38.   set the pattern to 1
  39.   put (posMod + ship) * 30 into xhit
  40.   drag from xhit+3,yhit to xhit+23,yhit+10 with optionKey
  41.   doMenu "Select"
  42.   doMenu "Clear Picture"
  43.  
  44.   subtract 15 from xhit
  45.   set dragspeed to 0
  46.   choose eraser tool
  47.   drag from xhit,yhit+1 to xhit+40,yhit+1
  48.  
  49.   if shotLevel < 3 then
  50.     put 0 into shotLevel
  51.   end if
  52.   doMenu "Select All"
  53.   doMenu "Select"
  54. end hit
  55.  
  56. on mouseUp
  57.   put card field "passes" into count
  58.   put card field "speed" into speed
  59.   visual effect dissolve fast
  60.   go next
  61.   global posMod
  62.   put 0 into posMod
  63.   put 30 into side
  64.   put 64 into hight
  65.   put 1 into direction
  66.   global shotLevel
  67.   put 0 into shotLevel
  68.   global score
  69.   put 0 into score
  70.   put score into word 2 of card field 2
  71.   put 10 into Ammo
  72.   put Ammo into word 2 of line 2 of card field 2
  73.   put false into done
  74.   global alive
  75.   put 1 into item 1 of alive
  76.   put 1 into item 2 of alive
  77.   put 1 into item 3 of alive
  78.   put 1 into item 4 of alive
  79.   put 1 into item 5 of alive
  80.   put 1 into item 6 of alive
  81.   put 1 into item 7 of alive
  82.   doMenu "Select All"
  83.   doMenu "Select"
  84.   set dragSpeed to speed
  85.  
  86.   repeat until done
  87.     repeat until the mouseClick or done
  88.       if (Ammo =0) and (shotLevel is 1) then
  89.         put true into done
  90.       end if
  91.  
  92.       get the length of card field 3
  93.       if (the mouseH > 300) and (it < 100) then
  94.         put "     " before card field 3
  95.       else
  96.         if (the mouseH < 200) and (it > 5) then
  97.           put empty into char 1 to 5 of card field 3
  98.         end if
  99.       end if
  100.  
  101.       if shotLevel > 0 then
  102.         if (length of line 3 of card field 1) > 0 then
  103.           put (length of line 3 of card field 1) div 5 into length1
  104.           add 1 to length1
  105.           put length1 - posMod into it
  106.           if (it is 2) or (it is 4) or (it is 6) then
  107.             if (item it of alive is 1) then
  108.               hit(it)
  109.               set dragspeed to speed
  110.             end if
  111.           end if
  112.         end if
  113.         if (length of line 2 of card field 1) > 0 then
  114.           put (length of line 2 of card field 1) div 5 into length2
  115.           add 1 to length2
  116.           put length2 - posMod into it
  117.           if (it is 1) or (it is 3) or (it is 5) or (it is 7) then
  118.             if (item it of alive is 1) then
  119.               hit(it)
  120.               set dragspeed to speed
  121.             end if
  122.           end if
  123.         end if
  124.         put empty into line 1 to 2 of card field 1
  125.         subtract 1 from shotLevel
  126.         if (length of line 3 of card field 1) > 0 then
  127.           put (length of line 3 of card field 1) div 5 into length1
  128.           add 1 to length1
  129.           put length1 - posMod into it
  130.           if (it is 2) or (it is 4) or (it is 6) then
  131.             if (item it of alive is 1) then
  132.               hit(it)
  133.               set dragspeed to speed
  134.             end if
  135.           end if
  136.         end if
  137.         if (length of line 2 of card field 1) > 0 then
  138.           put (length of line 2 of card field 1) div 5 into length2
  139.           add 1 to length2
  140.           put length2 - posMod into it
  141.           if (it is 1) or (it is 3) or (it is 5) or (it is 7) then
  142.             if (item it of alive is 1) then
  143.               hit(it)
  144.               set dragspeed to speed
  145.             end if
  146.           end if
  147.         end if
  148.       end if  -- shot
  149.  
  150.       if direction is 1 then
  151.         drag from side,hight to side+30,hight
  152.         add 30 to side
  153.         add 1 to posMod
  154.         if side > 250 then
  155.           put 0 into direction
  156.         end if
  157.       else
  158.         drag from side,hight to side-30,hight
  159.         subtract 30 from side
  160.         subtract 1 from posMod
  161.         if side is 30 then
  162.           put 1 into direction
  163.           subtract 1 from count
  164.         end if
  165.       end if
  166.       if count = 0 then
  167.         put true into done
  168.       end if
  169.     end repeat
  170.  
  171.     if Ammo > 0 then
  172.       put card field 3 into line 16 of card field 1
  173.       put "e" into word 1 of line 16 of card field 1
  174.       subtract 1 from Ammo
  175.       put Ammo into word 2 of line 2 of card field 2
  176.       put 16 into shotLevel
  177.     end if
  178.  
  179.   end repeat
  180.  
  181.   doMenu "Select All"
  182.   doMenu "Revert"
  183.   put "4" into card field 3
  184.   put empty into card field 1
  185.   choose browse tool
  186.   visual effect iris open slow
  187.   go prev
  188. end mouseUp
  189.  
  190.  
  191.  
  192.  
  193. -- part 2 (field)
  194. -- low flags: 00
  195. -- high flags: 0002
  196. -- rect: left=392 top=105 right=122 bottom=443
  197. -- title width / last selected line: 0
  198. -- icon id / first selected line: 0 / 0
  199. -- text alignment: 0
  200. -- font id: 0
  201. -- text size: 12
  202. -- style flags: 0
  203. -- line height: 16
  204. -- part name: passes
  205.  
  206.  
  207. -- part 4 (button)
  208. -- low flags: 00
  209. -- high flags: 8002
  210. -- rect: left=18 top=315 right=336 bottom=64
  211. -- title width / last selected line: 0
  212. -- icon id / first selected line: 0 / 0
  213. -- text alignment: 1
  214. -- font id: 0
  215. -- text size: 12
  216. -- style flags: 0
  217. -- line height: 16
  218. -- part name: Quit
  219. ----- HyperTalk script -----
  220. on mouseUp
  221.   doMenu "Quit HyperCard"
  222. end mouseUp
  223.  
  224.  
  225.  
  226. -- part 5 (button)
  227. -- low flags: 00
  228. -- high flags: 8002
  229. -- rect: left=77 top=315 right=336 bottom=187
  230. -- title width / last selected line: 0
  231. -- icon id / first selected line: 0 / 0
  232. -- text alignment: 1
  233. -- font id: 0
  234. -- text size: 12
  235. -- style flags: 0
  236. -- line height: 16
  237. -- part name: Open Stack...
  238. ----- HyperTalk script -----
  239. on mouseUp
  240.   doMenu "Open Stack..."
  241. end mouseUp
  242.  
  243.  
  244.  
  245. -- part 6 (field)
  246. -- low flags: 00
  247. -- high flags: 0002
  248. -- rect: left=180 top=105 right=122 bottom=231
  249. -- title width / last selected line: 0
  250. -- icon id / first selected line: 0 / 0
  251. -- text alignment: 0
  252. -- font id: 0
  253. -- text size: 12
  254. -- style flags: 0
  255. -- line height: 16
  256. -- part name: speed
  257.  
  258.  
  259. -- part contents for card part 2
  260. ----- text -----
  261. 3
  262.  
  263. -- part contents for card part 6
  264. ----- text -----
  265. 1